home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
355
/
source
/
oops_js
/
oopsmsg2.mod
< prev
next >
Wrap
Text File
|
1990-02-02
|
3KB
|
70 lines
IMPLEMENTATION MODULE oopsmsg2; (* Ken Badertscher (KBAD) 2/23/87 *)
FROM oopsmsg1 IMPORT ErrMsgs;
PROCEDURE AssignErr2(VAR errs : ErrMsgs);
BEGIN
errs[67] :=
'(* ^^^parameters with equal types in I have different types in D *)';
errs[68] := '(* ^^^mismatch between VAR specifications *)';
errs[69] := '(* ^^^mismatch between type specifications *)';
errs[70] := '(* ^^^more parameters in D than in I *)';
errs[71] := '(* ^^^mismatch between result type specifications *)';
errs[72] := '(* ^^^function in D, pure procedure in I *)';
errs[73] := '(* ^^^procedure in D has parameters, but not in I *)';
errs[74] := '(* ^^^code procedure cannot be declared in definition module *)';
errs[75] := '(* ^^^illegal type of control variable in FOR statement *)';
errs[76] := '(* ^^^procedure call of a function *)';
errs[77] := '(* ^^^identifiers in heading and at end do not match *)';
errs[78] :=
'(* ^^^redefinition of a type that is declared in definition part *)';
errs[79] := '(* ^^^imported module not found *)';
errs[80] := '(* ^^^unsatisfied export list entry *)';
errs[81] := '(* ^^^illegal type of procedure result *)';
errs[82] := '(* ^^^illegal base type of subrange *)';
errs[83] := '(* ^^^illegal type of case expression *)';
errs[84] := '(* ^^^writing of symbol file failed *)';
errs[85] := '(* ^^^keys of imported symbol files do not match *)';
errs[86] := '(* ^^^error in format of symbol file *)';
errs[88] := '(* ^^^symbol file not successfully opened *)';
errs[89] :=
'(* ^^^procedure declared in definition module, but not in implementation *)';
errs[90] := '(* ^^^in {a..b}, if a is a constant, b must also be a constant *)';
errs[91] := '(* ^^^code procedure can have at most 8 bytes of code *)';
errs[92] := '(* ^^^too many cases *)';
errs[93] := '(* ^^^too many exit statements *)';
errs[94] := '(* ^^^index type of array must be a subrange *)';
errs[95] := '(* ^^^subrange bound must be less than 2^15 *)';
errs[96] := '(* ^^^too many global modules *)';
errs[97] := '(* ^^^too many procedure in definition module *)';
errs[98] := '(* ^^^too many structure elements in definition module *)';
errs[100] := '(* ^^^multiple definition within the same scope *)';
errs[101] := '(* ^^^illegal use of type *)';
errs[102] := '(* ^^^illegal use of procedure *)';
errs[103] := '(* ^^^illegal use of constant *)';
errs[104] := '(* ^^^illegal use of type *)';
errs[105] := '(* ^^^illegal use of procedure *)';
errs[106] := '(* ^^^illegal use of expression *)';
errs[107] := '(* ^^^illegal use of module *)';
errs[108] := '(* ^^^constant index out of range *)';
errs[109] :=
'(* ^^^indexed variable is not an array, or the index has the wrong type *)';
errs[110] := '(* ^^^record selector is not a field identifier *)';
errs[111] := '(* ^^^dereferenced variable is not a pointer *)';
errs[112] := '(* ^^^operand type incompatible with sign inversion *)';
errs[113] := '(* ^^^operand type incompatible with NOT *)';
errs[114] := '(* ^^^x IN y: type(x) # basetype(y) *)';
errs[115] :=
'(* ^^^type of x cannot be the basetype of a set, or y is not a set *)';
errs[116] :=
'(* ^^^{a..b}: type of either a or b # the base type of the set *)';
errs[117] := '(* ^^^incompatible operand types *)';
errs[118] := '(* ^^^operand type incompatible with * *)';
END AssignErr2;
END oopsmsg2.